home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
A-COMAL Series
/
(k)aai.d64
/
plot'text.proc
< prev
next >
Wrap
Text File
|
2007-02-28
|
738b
|
30 lines
9000 //
9010 PROC PLOT'TEXT(ROW,COL,C$) CLOSED
9020 IF C$="" THEN RETURN
9030 START:=828
9040 IF PEEK(START)<>160 THEN
9050 POKE 29260,216 // LOWER'CASE
9060 POKE START,160 // RELOCATABLE
9070 POKE START+1,3 // CODE
9080 POKE START+2,177
9090 POKE START+3,51
9100 POKE START+4,170
9110 POKE START+5,200
9120 POKE START+6,177
9130 POKE START+7,51
9140 POKE START+8,201
9150 POKE START+9,192
9160 POKE START+10,144
9170 POKE START+11,4
9180 POKE START+12,233
9190 POKE START+13,96
9200 POKE START+14,145
9210 POKE START+15,51
9220 POKE START+16,202
9230 POKE START+17,208
9240 POKE START+18,242
9250 POKE START+19,96
9260 ENDIF
9270 PLOTTEXT (COL-1)*8,192-(ROW-1)*8,C$
9280 ENDPROC PLOT'TEXT